home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 2 / Atari Mega Archive CD - Volume 2.iso / 8bit / cislib_b / wedge.atr < prev    next >
Text File  |  1995-04-22  |  4KB  |  124 lines
  1. 100 REM WEDGE BASIC LOADER 
  2. 110 GRAPHICS 0:? "Insert a DOS 2.0S diskette" 
  3. 120 ? "with DOS.SYS in drive 1" 
  4. 130 ? :? "Press RETURN when you have done this" 
  5. 140 IF PEEK(764)<>12 THEN 140 
  6. 150 POKE 764,255 
  7. 160 ? :? "Now writing the wedge AUTORUN.SYS     file." 
  8. 170 TRAP 190 
  9. 180 OPEN #1,8,0,"D:AUTORUN.SYS":TRAP 40000:GOTO 200 
  10. 190 CLOSE #1:? :? "Can't open AUTORUN.SYS for write":END  
  11. 200 PUT #1,255:PUT #1,255:REM $FFFF HEADER 
  12. 210 PUT #1,0:PUT #1,31:REM $1F00 START 
  13. 220 PUT #1,74:PUT #1,33:REM $214A END 
  14. 230 FOR I=7936 TO 8522+6:REM INCLUDE 6 BYTE AUTORUN 
  15. 240 READ A:TRAP 310:PUT #1,A:TRAP 40000 
  16. 250 CKSUM=CKSUM+A 
  17. 260 NEXT I 
  18. 270 IF CKSUM<>60435 THEN ? "}Bad number in DATA statements.":ERR=1 
  19. 280 CLOSE #1 
  20. 290 IF  NOT ERR THEN ? :? "DATA ok,write successful." 
  21. 300 END  
  22. 310 ? :? "Error-";PEEK(195);" when attempting disk write.":CLOSE #1:END  
  23. 7936 DATA 104,165,12,141,37,31 
  24. 7942 DATA 165,13,141,38,31,169 
  25. 7948 DATA 36,133,12,169,31,133 
  26. 7954 DATA 13,32,43,31,32,92 
  27. 7960 DATA 31,169,75,141,231,2 
  28. 7966 DATA 169,33,141,232,2,96 
  29. 7972 DATA 32,64,21,32,11,31 
  30. 7978 DATA 96,169,80,141,68,3 
  31. 7984 DATA 169,31,141,69,3,169 
  32. 7990 DATA 0,141,73,3,169,12 
  33. 7996 DATA 141,72,3,169,11,141 
  34. 8002 DATA 66,3,162,0,32,86 
  35. 8008 DATA 228,152,48,1,96,76 
  36. 8014 DATA 55,33,65,116,97,114 
  37. 8020 DATA 105,32,87,101,100,103 
  38. 8026 DATA 101,155,160,0,185,26 
  39. 8032 DATA 3,201,69,240,7,200 
  40. 8038 DATA 200,192,34,208,243,96 
  41. 8044 DATA 200,169,165,153,26,3 
  42. 8050 DATA 200,169,31,153,26,3 
  43. 8056 DATA 162,0,189,0,228,157 
  44. 8062 DATA 165,31,232,224,16,208 
  45. 8068 DATA 245,169,184,141,169,31 
  46. 8074 DATA 169,31,141,170,31,24 
  47. 8080 DATA 173,4,228,105,1,141 
  48. 8086 DATA 186,31,173,5,228,105 
  49. 8092 DATA 0,141,187,31,169,0 
  50. 8098 DATA 133,203,96,251,243,51 
  51. 8104 DATA 246,184,31,163,246,51 
  52. 8110 DATA 246,60,246,76,228,243 
  53. 8116 DATA 56,1,1,125,32,32 
  54. 8122 DATA 62,246,8,201,155,240 
  55. 8128 DATA 4,230,203,40,96,140 
  56. 8134 DATA 181,31,142,182,31,165 
  57. 8140 DATA 203,240,86,169,51,133 
  58. 8146 DATA 205,169,32,133,206,160 
  59. 8152 DATA 0,177,205,217,128,5 
  60. 8158 DATA 208,12,200,177,205,240 
  61. 8164 DATA 40,196,203,208,240,76 
  62. 8170 DATA 37,32,201,255,240,53 
  63. 8176 DATA 160,0,177,205,240,9 
  64. 8182 DATA 230,205,144,2,230,206 
  65. 8188 DATA 76,242,31,24,165,205 
  66. 8194 DATA 105,3,133,205,144,2 
  67. 8200 DATA 230,206,76,215,31,200 
  68. 8206 DATA 132,204,177,205,141,183 
  69. 8212 DATA 31,200,177,205,141,184 
  70. 8218 DATA 31,108,183,31,160,0 
  71. 8224 DATA 169,46,153,128,5,169 
  72. 8230 DATA 0,133,203,169,155,172 
  73. 8236 DATA 181,31,174,182,31,40 
  74. 8242 DATA 96,68,73,82,0,125 
  75. 8248 DATA 32,83,67,82,65,84 
  76. 8254 DATA 67,72,0,22,33,76 
  77. 8260 DATA 79,67,75,0,27,33 
  78. 8266 DATA 85,78,76,79,67,75 
  79. 8272 DATA 0,32,33,82,69,78 
  80. 8278 DATA 65,77,69,0,37,33 
  81. 8284 DATA 75,73,76,76,0,42 
  82. 8290 DATA 33,255,155,50,54,32 
  83. 8296 DATA 70,82,69,69,32,83 
  84. 8302 DATA 69,67,84,79,82,83 
  85. 8308 DATA 155,155,0,0,68,58 
  86. 8314 DATA 42,46,42,162,80,169 
  87. 8320 DATA 12,157,66,3,32,86 
  88. 8326 DATA 228,162,80,169,3,157 
  89. 8332 DATA 66,3,169,6,157,74 
  90. 8338 DATA 3,169,120,157,68,3 
  91. 8344 DATA 169,32,157,69,3,32 
  92. 8350 DATA 86,228,152,16,3,76 
  93. 8356 DATA 55,33,162,80,169,5 
  94. 8362 DATA 157,66,3,169,100,157 
  95. 8368 DATA 68,3,141,68,3,169 
  96. 8374 DATA 32,157,69,3,141,69 
  97. 8380 DATA 3,169,20,157,72,3 
  98. 8386 DATA 141,72,3,32,86,228 
  99. 8392 DATA 152,48,13,169,9,141 
  100. 8398 DATA 66,3,162,0,32,86 
  101. 8404 DATA 228,76,166,32,162,80 
  102. 8410 DATA 169,12,157,66,3,32 
  103. 8416 DATA 86,228,76,30,32,162 
  104. 8422 DATA 80,157,66,3,169,0 
  105. 8428 DATA 157,73,3,164,203,153 
  106. 8434 DATA 128,5,56,152,229,204 
  107. 8440 DATA 157,72,3,24,169,128 
  108. 8446 DATA 101,204,157,68,3,169 
  109. 8452 DATA 5,105,0,157,69,3 
  110. 8458 DATA 32,86,228,152,16,3 
  111. 8464 DATA 76,55,33,76,30,32 
  112. 8470 DATA 169,33,76,229,32,169 
  113. 8476 DATA 35,76,229,32,169,36 
  114. 8482 DATA 76,229,32,169,32,76 
  115. 8488 DATA 229,32,173,37,31,133 
  116. 8494 DATA 12,173,38,31,133,13 
  117. 8500 DATA 76,116,228,72,162,80 
  118. 8506 DATA 169,12,157,66,3,32 
  119. 8512 DATA 86,228,104,162,255,154 
  120. 8518 DATA 133,185,76,64,185 
  121. 9000 REM DATA FOR AUTORUN ADDRESS 
  122. 9010 DATA 224,2,225,2,1,31 
  123. 9020 REM END OF DATA STATEMENTS 
  124.